mapsearch is package {
 m is hash{"a" -> 1; "b" -> 2};
 main() do {
   bar is let {
     x is "a";
     foo is case m in {
       a where (x1 where x1=x) -> b in m and b <2 is b;
       _ default is nonInteger;
     }
   } in foo;
   logMsg(info, "$bar");
   assert bar = 1;
 }
}